Sub ImportPlanetarySystems()
DoCmd.TransferText _
     acImportDelim, , _
     "tblPlanetarySystems", _
     "C:\LunarSociety\PlanetarySystems.txt", _
     True
     
End Sub
